home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-client / wl.c < prev   
Encoding:
C/C++ Source or Header  |  1991-10-06  |  6.6 KB  |  192 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wl.c
  5. * RCS:          $Header: wl.c,v 1.1 91/03/14 02:51:36 mayer Exp $
  6. * Description:  Unix Domain CLIENT to send lisp expressions to WINTERP lisp-server.
  7. *        This code derived from winterp/src-client/wl-tcpip.c
  8. *        as well as code contributed by Victor Kan.
  9. * Author:       Niels Mayer, HPLabs, Victor Kan <kan@DG-RTP.DG.COM>
  10. * Created:      Sat Jun 10 02:15:35 1989
  11. * Modified:     Sat Oct  5 22:44:31 1991 (Niels Mayer) mayer@hplnpm
  12. * Language:     C
  13. * Package:      N/A
  14. * Status:       X11r5 contrib tape release
  15. *
  16. * WINTERP Copyright 1989-1991 Hewlett-Packard Company (by Niels Mayer).
  17. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  18. *
  19. * Permission to use, copy, modify, distribute, and sell this software and its
  20. * documentation for any purpose is hereby granted without fee, provided that
  21. * the above copyright notice appear in all copies and that both that
  22. * copyright notice and this permission notice appear in supporting
  23. * documentation, and that the name of Hewlett-Packard and David Betz not be
  24. * used in advertising or publicity pertaining to distribution of the software
  25. * without specific, written prior permission.  Hewlett-Packard and David Betz
  26. * make no representations about the suitability of this software for any
  27. * purpose. It is provided "as is" without express or implied warranty.
  28. *
  29. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  30. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  31. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  32. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  33. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  34. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  35. * PERFORMANCE OF THIS SOFTWARE.
  36. *
  37. * See ./winterp/COPYRIGHT for information on contacting the authors.
  38. * 
  39. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  40. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  41. *
  42. ********************************************************************************
  43. */
  44. static char rcs_identity[] = "@(#)$Header: wl.c,v 1.1 91/03/14 02:51:36 mayer Exp $";
  45.  
  46. #include <stdio.h>
  47. #include <sys/types.h>
  48. #include <sys/socket.h>
  49. #include <sys/un.h>
  50. #include "../src-server/config.h"
  51.  
  52. char *progname = NULL;
  53.  
  54.  
  55. /*******************************************************************************
  56.  * Send <message> to the server via socket <s>
  57.  *******************************************************************************/
  58. void Server_Send(s, message)
  59.      int s;
  60.      char *message;
  61. {
  62.   if (send(s, message, strlen(message), 0) < 0) {
  63.     perror(progname);
  64.     fprintf(stderr, "%s: unable to send() on Unix Domain Socket.\n", progname);
  65.     exit(1);
  66.   }
  67. }
  68.  
  69.  
  70. /*******************************************************************************
  71.  * Establish a connection with server process, returning socket descriptor
  72.  * if successful.
  73.  *
  74.  * This is an AF_UNIX version of wl.c:Server_Connect()
  75.  *******************************************************************************/
  76.  
  77. int Server_Connect(socket_path)
  78.      char *socket_path;
  79. {
  80.   int s;
  81.   struct sockaddr_un peeraddr_un;
  82.  
  83.   peeraddr_un.sun_family = AF_UNIX;
  84.  
  85.   /*
  86.    * Set the file system entry used for the AF_UNIX Domain Socket.
  87.    */
  88. #ifndef SOCKADDR_UN_MAXLEN
  89. #define SOCKADDR_UN_MAXLEN 108    /* can't find SOCKADDR_UN_MAXLEN on hpux 7.0, however "char sun_path[108];" */ 
  90. #endif
  91.   if (strlen(socket_path) > (SOCKADDR_UN_MAXLEN - 1)) {
  92.     fprintf(stderr, "%s: Unix Domain Socket filepath %s must be shorter than %d bytes.\n",
  93.         progname,
  94.         socket_path,
  95.         SOCKADDR_UN_MAXLEN - 1);
  96.     exit(1);
  97.   }
  98.   else
  99.     strcpy(peeraddr_un.sun_path, socket_path);
  100.  
  101.   /*
  102.    * Create the socket.
  103.    */
  104.   if ((s = socket(peeraddr_un.sun_family, SOCK_STREAM, 0)) == -1) {
  105.     perror(progname);
  106.     fprintf(stderr, "%s: socket() failed to create Unix Domain Socket %s .\n",
  107.         progname, socket_path);
  108.     exit(1);
  109.   }
  110.   
  111.   /*
  112.    * Try to connect to the local server through the socket
  113.    * which was just built into peeraddr.
  114.    */
  115.   if (connect(s, &peeraddr_un, sizeof(peeraddr_un.sun_family) + strlen(peeraddr_un.sun_path)) == -1) {
  116.     perror(progname);
  117.     fprintf(stderr, "%s: unable to connect() to remote via Unix Domain Socket %s .\n",
  118.         progname, socket_path);
  119.     exit(1);
  120.   }
  121.   
  122.   return (s);
  123. }
  124.  
  125.  
  126. /******************************************************************************
  127.  * Server_Disconnect -- shutdown the connection for further sends. This causes
  128.  * the server to receive an EOF condition after it has received all data from
  129.  * Server_Send().
  130. ******************************************************************************/
  131. void Server_Disconnect(s)
  132.      int s;
  133. {
  134.   char buffer[200];
  135.  
  136.   if (shutdown(s, 1) == -1) {
  137.     perror(progname);
  138.     fprintf(stderr, "%s: unable to shutdown() Unix Domain Socket.\n", progname);
  139.     exit(1);
  140.   }
  141. }
  142.  
  143.  
  144. /******************************************************************************
  145.  * AF_UNIX version of wl.c:main()
  146.  ******************************************************************************/
  147. main(argc, argv)
  148.      int argc;
  149.      char *argv[];
  150. {
  151.   extern int getopt();        /* proc to get option letter from argv */
  152.   extern char* optarg;        /* arg string being pointed to by getopt() */
  153.   extern int optind;        /* index into argv set by getopt() */
  154.   int opt;            /* option argument */
  155.   char* socket_path = NULL;    /* for pointing to environment vars */
  156.   int s;            /* connected socket desriptor */
  157.  
  158.   progname = argv[0];
  159.  
  160.   while ((opt = getopt(argc, argv, "f:")) != EOF)
  161.     switch (opt) {
  162.     case 'f':
  163.       socket_path = (char*) malloc((unsigned) strlen(optarg) + 1);
  164.       strcpy(socket_path, optarg);
  165.       break;
  166.     case '?':
  167.       fprintf(stderr, "usage: %s [-f <unix-socket-filepath>] [sexpr]\n", progname);
  168.       fprintf(stderr, "\t<unix-socket-filepath> defaults to %s\n", DEFAULT_UNIX_SOCKET_FILEPATH); /* DEFAULT_UNIX_SOCKET_FILEPATH in "../src-server/config.h" */
  169.       exit(1);
  170.       break;
  171.     }
  172.  
  173.   if (socket_path == NULL)
  174.     if ((socket_path = (char *) getenv(DEFAULT_UNIX_SOCKET_FILEPATH_ENVVAR)) == NULL) /* DEFAULT_UNIX_SOCKET_FILEPATH_ENVVAR in "../src-server/config.h" */
  175.       socket_path = DEFAULT_UNIX_SOCKET_FILEPATH;
  176.  
  177.   s = Server_Connect(socket_path);
  178.     
  179.   /*
  180.    * note that due to a bug/feature of winterp, we must send it only
  181.    * one sexp. Here, in the case that multiple args get passed, we also
  182.    * want to ensure that they're whitespace separated for tokenization
  183.    */
  184.   for (; optind < argc; optind++) {
  185.     Server_Send(s, argv[optind]);
  186.     Server_Send(s, " ");
  187.   }
  188.  
  189.   Server_Disconnect(s);
  190.   exit(0);
  191. }
  192.